home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00472.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  3.1 KB  |  102 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global ActiveHZone, lastRo
  7.   set ActiveHZone to "S2"
  8.   set startHZone to 2
  9.   set hZone1 to startHZone
  10.   set hZone2 to startHZone + 1
  11.   set hZone3 to startHZone + 2
  12.   set hZone4 to startHZone + 3
  13.   set hZone5 to startHZone + 4
  14.   set hzone6 to startHZone + 5
  15.   set ro to rollOver()
  16.   if (lastRo <> -1) and (lastRo >= 19) and (lastRo <= 29) and (lastRo <> ro) then
  17.     cursor(-1)
  18.     puppetSprite(lastRo - 11, 0)
  19.   end if
  20.   if (lastRo >= 32) and (lastRo <= 33) and (lastRo <> ro) then
  21.     puppetSprite(lastRo - 2, 0)
  22.   end if
  23.   set lastRo to ro
  24.   case ro of
  25.     hZone1:
  26.       initSprites()
  27.       go("OrdinateurS1")
  28.     hZone2:
  29.       initSprites()
  30.       go("OrdinateurS2")
  31.     hZone3:
  32.       initSprites()
  33.       go("OrdinateurS3")
  34.     hZone4:
  35.       initSprites()
  36.       go("OrdinateurS4")
  37.     hZone5:
  38.       initSprites()
  39.       go("OrdinateurS5")
  40.     hzone6:
  41.       initSprites()
  42.       go("OrdinateurS6")
  43.     19:
  44.       cursor([member "mousePointer", member "mousePointerMask"])
  45.       puppetSprite(19 - 11, 1)
  46.       set the member of sprite (19 - 11) to member "Or1HL"
  47.     20:
  48.       cursor([member "mousePointer", member "mousePointerMask"])
  49.       puppetSprite(20 - 11, 1)
  50.       set the member of sprite (20 - 11) to member "Or2HL"
  51.     21:
  52.       cursor([member "mousePointer", member "mousePointerMask"])
  53.       puppetSprite(21 - 11, 1)
  54.       set the member of sprite (21 - 11) to member "Or3HL"
  55.     22:
  56.       cursor([member "mousePointer", member "mousePointerMask"])
  57.       puppetSprite(22 - 11, 1)
  58.       set the member of sprite (22 - 11) to member "Or3-2HL"
  59.     23:
  60.       cursor([member "mousePointer", member "mousePointerMask"])
  61.       puppetSprite(23 - 11, 1)
  62.       set the member of sprite (23 - 11) to member "Or4HL"
  63.     24:
  64.       cursor([member "mousePointer", member "mousePointerMask"])
  65.       puppetSprite(24 - 11, 1)
  66.       set the member of sprite (24 - 11) to member "Or5HL"
  67.     25:
  68.       cursor([member "mousePointer", member "mousePointerMask"])
  69.       puppetSprite(25 - 11, 1)
  70.       set the member of sprite (25 - 11) to member "Or6HL"
  71.     26:
  72.       cursor([member "mousePointer", member "mousePointerMask"])
  73.       puppetSprite(26 - 11, 1)
  74.       set the member of sprite (26 - 11) to member "Or7HL"
  75.     27:
  76.       cursor([member "mousePointer", member "mousePointerMask"])
  77.       puppetSprite(27 - 11, 1)
  78.       set the member of sprite (27 - 11) to member "Or8HL"
  79.     28:
  80.       cursor([member "mousePointer", member "mousePointerMask"])
  81.       puppetSprite(28 - 11, 1)
  82.       set the member of sprite (28 - 11) to member "Or9HL"
  83.     29:
  84.       cursor([member "mousePointer", member "mousePointerMask"])
  85.       puppetSprite(29 - 11, 1)
  86.       set the member of sprite (29 - 11) to member "Or10HL"
  87.     32:
  88.       set thereIsRoll to 1
  89.       cursor([member "mousePointer", member "mousePointerMask"])
  90.       puppetSprite(32 - 2, 1)
  91.       set the member of sprite (32 - 2) to member "SoftImageHL"
  92.     33:
  93.       set thereIsRoll to 1
  94.       cursor([member "mousePointer", member "mousePointerMask"])
  95.       puppetSprite(33 - 2, 1)
  96.       set the member of sprite (33 - 2) to member "ImacHL"
  97.     otherwise:
  98.       initSprites()
  99.       go("OrdinateurS2")
  100.   end case
  101. end
  102.